From: Glenn Morris <rgm@gnu.org>
Date: Tue, 15 Sep 2009 02:35:47 +0000 (+0000)
Subject: (find-lisp-object-file-name): When looking for autoloaded
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10478
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=dbe1af518d0d876ab42b4c7e3c5b98b848b8d0cc;p=emacs.git

(find-lisp-object-file-name): When looking for autoloaded
variables, also consider the .elc files, since the .el files are
normally gzipped (subsequent code locates the .el.gz from the .elc).
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index de60cd5fea2..2425310cd93 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -267,8 +267,9 @@ suitable file is found, return nil."
 		   "^;;; Generated autoloads from \\(.*\\)" nil t)
 	      (setq file-name
 		    (locate-file
-		     (match-string-no-properties 1)
-		     load-path nil 'readable))))))))
+		     (file-name-sans-extension
+		      (match-string-no-properties 1))
+		     load-path '(".el" ".elc") 'readable))))))))
 
     (cond
      ((and (not file-name) (subrp type))